home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 06 (1982-02)(Softdisk)(Side B).do / SPITZ.bas < prev    next >
BASIC Source File  |  1996-12-24  |  23KB  |  470 lines
  1. 1 Q = 4014
  2. 2  GOTO 10
  3. 3  GOTO 14
  4. 4  TEXT 
  5. 5  REM  Q=3222
  6. 6  LIST 6050,9000
  7. 8  END 
  8. 10 J = 10000
  9. 12  GOTO 20
  10. 14  TEXT 
  11. 16  LIST 10900,20000
  12. 18  END 
  13. 20  HOME 
  14. 30  DIM S(200)
  15. 40  DIM P$(100)
  16. 45  GR 
  17. 46  GOTO 90
  18. 50  REM ***************
  19. 51  REM *THE ELIMINATOR
  20. 52  FOR X = 1 TO Q
  21. 53  READ P$
  22. 54  NEXT X
  23. 90 X0 = 7
  24. 100  DIM X1(1000)
  25. 110  DIM Y1(1000)
  26. 115  FOR N = 1 TO J
  27. 120  READ A
  28. 125  IF A = 7  THEN 3500
  29. 130  IF A = 1  THEN 1000
  30. 140  IF A = 2  THEN 2000
  31. 150  IF A = 3  THEN 2500
  32. 160  IF A = 5  THEN 3000
  33. 170  IF A = 6  THEN 3200
  34. 180  IF A = 4  THEN 2600
  35. 190  IF A = 8  THEN 10000
  36. 200  READ X1
  37. 210  READ Y1
  38. 220  READ D
  39. 230  READ C
  40. 240  FOR X = X0 TO X0 +D -1
  41. 250 X1(X) = X1(X0 -1) +(X -X0 +1) *X1
  42. 260 Y1(X) = Y1(X0 -1) +(X -X0 +1) *Y1
  43. 265  COLOR= C
  44. 270  PLOT X1(X),Y1(X)
  45. 280  COLOR= 0
  46. 290  PLOT X1(X -6),Y1(X -6)
  47. 300  NEXT X
  48. 310 X0 = X0 +D
  49. 320  NEXT N
  50. 620 X3 =  INT( RND(1) *3) -1:Y3 =  INT( RND(1) *3) -1
  51. 1000  READ B
  52. 1010  IF B = 1  THEN 1300
  53. 1020  READ D
  54. 1030  IF D = 1  THEN 1150
  55. 1040  READ K
  56. 1050  FOR X = 1 TO K
  57. 1060  READ C: READ X1: READ X2
  58. 1070  COLOR= C
  59. 1080  READ Y
  60. 1090  HLIN X1,X2 AT Y
  61. 1100  NEXT X
  62. 1110  NEXT N
  63. 1150  READ K
  64. 1160  FOR X = 1 TO K
  65. 1170  READ C: READ X1: READ X2: READ Y
  66. 1180  COLOR= C
  67. 1190  VLIN X1,X2 AT Y
  68. 1200  NEXT X
  69. 1210  NEXT N
  70. 1300  READ K
  71. 1310  FOR X = 1 TO K
  72. 1320  READ C: READ X1: READ Y1
  73. 1330  COLOR= C
  74. 1340  PLOT X1,Y1
  75. 1350  NEXT X
  76. 1360  NEXT N
  77. 2000  READ K
  78. 2010  FOR X = X0 TO X0 +K -1
  79. 2020  READ X1(X): READ Y1(X)
  80. 2030  READ C
  81. 2040  COLOR= C
  82. 2050  PLOT X1(X),Y1(X)
  83. 2060  COLOR= 0
  84. 2070  PLOT X1(X -6),Y1(X -6)
  85. 2080  NEXT X
  86. 2090 X0 = X0 +K
  87. 2100  NEXT N
  88. 2500  READ X1
  89. 2510  FOR X = 1 TO X1: NEXT X
  90. 2520  NEXT N
  91. 2600  READ K1: READ K2
  92. 2610  FOR Y = 1 TO K2
  93. 2620  READ S(4 *Y -3): READ S(4 *Y -2): READ S(4 *Y -1): READ S(4 *Y)
  94. 2630  NEXT Y
  95. 2640  FOR Z = 1 TO K1
  96. 2650  FOR Y = 1 TO K2
  97. 2660  FOR X = X0 TO X0 +S(4 *Y -1) -1
  98. 2670  COLOR= S(4 *Y)
  99. 2680 X1(X) = X1(X0 -1) +(X -X0 +1) *S(Y *4 -3):Y1(X) = Y1(X0 -1) +(X -X0 +1) *S(Y *4 -2)
  100. 2690  PLOT X1(X),Y1(X)
  101. 2700  COLOR= 0
  102. 2710  PLOT X1(X -6),Y1(X -6)
  103. 2720  NEXT X
  104. 2730 X0 = X0 +S(4 *Y -1)
  105. 2740  NEXT Y
  106. 2750  NEXT Z
  107. 2760  NEXT N
  108. 3000  HOME 
  109. 3010  VTAB 22
  110. 3015  READ SP
  111. 3020  READ P$
  112. 3025  SPEED= SP
  113. 3030  PRINT P$
  114. 3040  SPEED= 255
  115. 3050  NEXT N
  116. 3200  FOR X = 1 TO 7
  117. 3210 X1(X) = X1(X0 -8 +X)
  118. 3220 Y1(X) = Y1(X0 -8 +X)
  119. 3230  NEXT X
  120. 3240 X0 = 8
  121. 3250  NEXT N
  122. 3500  READ X1: READ Y1: READ D: READ C: READ BA
  123. 3510  FOR X = X0 TO X0 +D -1
  124. 3520 X1(X) = X1(X0 -1) +(X -X0 +1) *X1
  125. 3530 Y1(X) = Y1(X0 -1) +(X -X0 +1) *Y1
  126. 3540  COLOR= C
  127. 3550  PLOT X1(X),Y1(X)
  128. 3560  COLOR= BA
  129. 3570  PLOT X1(X -6),Y1(X -6)
  130. 3580  NEXT X
  131. 3590 X0 = X0 +D
  132. 3600  NEXT N
  133. 4999  DATA  8,4
  134. 5000  DATA  1,0,0,12,6,9,35,24,6,9,35,25,6,9,35,26,6,10,34,27,6,10,34,28,6,11,33,29,6,12,32,30,6,13,31,31,6,14,30,32,6,16,28,33,6,18,26,34,12,9,13,21
  135. 5005  DATA    1,0,0,7,1,0,8,24,1,36,39,24,1,13,15,33,1,15,17,34,1,17,27,35,1,27,29,34,1,29,31,33,1,1,26,1,8,25,1,8,26,1,8,27,1,9,27,1,9,28,1,9,29,1,10,29,1,10,30
  136. 5006  DATA  1,11,30,1,11,31,1,12,31,1,12,32,1,13,32,1,31,32,1,32,32,1,32,31,1,33,31,1,33,30,1,34,30,1,34,29,1,35,29,1,35,28,1,35,27,1,36,27,1,36,26,1,36,25
  137. 5007  DATA  5,150,IT'S OLYMPIC DIVING,3,1000
  138. 5010  DATA      0,1,1,4,6,0,0,1,16,6,0,1,0,9,6,0,0,-1,5,6
  139. 5020  DATA    3,1000,0,1,-1,6,6,0,1,0,3,6,0,1,1,6,6,0,0,1,8,6
  140. 5030  DATA     2,7,27,21,6,29,19,6,26,17,6,30,17,6,29,15,6,27,14,6,26,23,0,0,-1,0,16,0
  141. 5040  DATA   3,1000,0,-1,0,2,6,3,500,0,0,-1,3,6,0,1,0,1,6,0,0,-1,5,6,3,1000
  142. 5050  DATA  1,1,22,0,9,15,6,8,15,0,8,15,6,10,15,0,10,15,6,8,15,0,8,15,6,10,15,0,10,15,6,8,15,0,8,15,6,10,15,0,10,15,6,8,15,0,8,15,6,10,15,0,10,15, 6,8,15,0,8,15,6,10,15,0,10,15,6,9,15
  143. 5060  DATA   3, 500,0,1,0,1,6,0,0,1,5,6,0,1,0,3,6,0,0,-1,5,6,3, 500
  144. 5070  DATA     0,1,-1,9,6,0,0,-1,3,6,0,-1,-1,3,6,0,-1,0,3,6,0,- 1,1,3,6,0,0,1,3,6,0,1,1,3,6,0,1,0,3,6,0,1,-1,3,6,0,0,-1,3,6,0,-1,-1,3,6,0,-1,0,3,6,0,-1,1,3,6,0,0,1,3,6
  145. 5080  DATA   0,1,1,9,6,0,0,1,8,6,2,6,20,22,6,22,21,6,19,19,6,23,17,6,21,16,6,20,23,0,0,1,0,15,0,3,1000
  146. 5090  DATA    0,1,0,3,6,0,0,-1,5,6,3,250,1,1,2,0,38,18,6,39,18,3,250,1,1,2,0,39,18,6,37,18 ,3,250,1,1,2,6,38,18,0,37,18,3,175
  147. 5100  DATA   0,-1,0,1,6,0,0,1,5,6,0,-2,0,15,6,0,0,-1,3,6,0,1,0,2,6,0,0,-1,5,6
  148. 5105  DATA  3,1000
  149. 5110  DATA     0,1,0,1,6,0,0,1,5,6,  0,1,0,3,6,0,0,-1,5,6,3,25,1,0,1,2,0,15,20,13,6,14,19,13,3,25 ,1,0,1,2,0,14,19,13,6,13,18,13,3,25 ,1,0,1,2,0,13,18,13,6,14,19,13,3,25 ,1,0,1,2,0,14,19,13,6,15,20,13
  150. 5120  DATA  0,1,-1,8,6
  151. 5130  DATA   0,1,0,1,6,0,1,1,16,6,2,4,36,23,6,37,23,6,36,22,6,37,21,6,5,255,OUCHHHH!!!!!!!!!!,3,1000
  152. 5135  DATA  5,255, ,3,1
  153. 5140  DATA     0,0,-1,3,6,0,-1,0,1,6,0,0,1,5,6,0,-2,0,15,6,0,0,-1,3,6,0,1,0,7,6,0,0,-1,5,6
  154. 5150  DATA      5,99,NOW I WILL DIVE WHILE HOLDING MY BREATH,3,1000,7,0,0,1,6,0,2,1,12,20,0,0,1,0,1,12,0,0,-1,5,12
  155. 5160  DATA         3,400,0,1,-1,5,12,0,1,0,4,12,0,1,1,3,12,0,0,1,16,12
  156. 5170  DATA    7,0,1,5,12,6,7,-1,0,6,12,6
  157. 5180  DATA    3,2000,7,0,-11,1,0,12,7,1,0,5,0,12
  158. 5190  DATA     0,-1,0,2,0,0,0,-2,11,0,0,-1,-1,1,0,0,0,1,6,1,7,0,1,27,1,1
  159. 5195  DATA  3,600
  160. 5200  DATA    1,0,0,30,12,19,24,33,6,19,24,34,12,19,24,32,6,19,24,33,12,19,24,31,6,19,24,32,12,19,24,30,6,19,24,31,12,19,24,29,6,19,24,30
  161. 5210  DATA  12,19,24,28,6,19,24,29,12,19,24,27,6,19,24,28,12,19,24,26,6,19,24,27,12,19,24,25,6,19,24,26,12,19,24,24,6,19,24,25
  162. 5220  DATA   12,19,24,23,6,19,24,24,12,19,24,22,0,19,24,23,12,19,24,21,0,19,24,22,12,19,24,20,0,19,24,21,12,19,24,19,0,19,24,20
  163. 5230  DATA  3,750,5,255, ,7,1,0,4,6,6,7,0,-1, 9,6,6,7,0,-1,6,0,6,0,-1,1,1,6,0,-1,0,5,6,3,500
  164. 5240  DATA  1,0,0,9,6,19,24,20,0,19,24,19,6,19,24,21,0,19,24,20,6,19,24,22,0,19,24,21,6,19,24,23,0,19,24,22,0,18,24,23
  165. 5250  DATA  0,1,0,2,0,0,0,-1,18,0,3,400
  166. 5260  DATA  1,1,1,6,18,23,3,500,1,1,1,0,18,23
  167. 5270  DATA   0,0,1,22,0,0,-1,0,11,0,0,-1,0,7,6,3,1000
  168. 5280  DATA    0,0,-1,3,6,0,1,0,10,6,0,0,-1,5,6,4,6,2,1,0,2,6,0,-1,2,6,4,5,4,1,0,2,6,0,1,2,6,-1,0,2,6,0,1,2,6
  169. 5290  DATA  2,5,24,22,6,25,20,6,26,19,6,24,17,6,25,14,6
  170. 5300  DATA  0,0,1,9,0,0,-1,0,14,0,0,-1,0,1,6,0,0,-1,1,6
  171. 5310  DATA  5,255,OUCH!  I HIT MY HEAD!!,3,2000,5,255, ,0,-1,0,2,6,0,0,-1,2,6,0,1,0,5,6,0,0,-1,5,6
  172. 5320  DATA  4,3,2,1,-1,1,6,0,-1,4,6,0,1,0,6,0,3,2000,0,1,0,1,6,0,0,1,23,6
  173. 5330  DATA      2,5,24,21,6,22,19,6,24,17,6,23,13,6,22,9,6,0,0,14,1,0,0,1,0,1,0,  0,0,1,6,6,7,0,1,10,6,6
  174. 5340  DATA  3,1000,1,0,0,1,0,9,35,24,3,1000,1,0,0,1,0,9,35,25,3,1000,1,0,0,1,0,9,35,26,3,1000,1,0,0,1,0,10,34,27,3,900,1,0,0,1,0,10,34,28,3,900,1,0,0,1,0,11,33,29,3,750
  175. 5350  DATA  1,0,0,1,0,12,32,30,3,400,1,0,0,1,0,13,31,31,3,200,1,0,0,1,0,14,30,32,3,100,1,0,0,1,0,16,28,33,3,50,1,0,0,1,0,18,26,34
  176. 5360  DATA  1,1,10,1,23,35,0,0,24,1,23,36,0,1,24,1,23,37,0,2,24,1,23,38,0,3,24,1,23,39,0,4,24
  177. 5365  DATA  1,1,12,0,5,24,0,39,24,0,6,24,0,38,24,0,7,24,0,37,24,0,8,24,0,36,24,0,8,25,0,36,25,0,8,26,0,36,26
  178. 5370  DATA  1,1,20,0,8,27,0,36,27,0,9,27,0,35,27,0,9,28,0,35,28,0,9,29,0,35,29,0,10,29,0,34,29, 0,10,30,0,34,30,0,11,30,0,33,30
  179. 5380  DATA  0,11,31,0,33,31,0,12,31,0,32,31,0,12,32,0,32,32
  180. 5390  DATA   1,1,16,0,13,32,0,31,32,0,13,33,0,31,33,0,14,33,0,30,33,0,15,33,0,29,33,0,15,34,0,29,34,0,16,34,0,28,34,0,17,34,0,27,34,0,17,35,0,27,35
  181. 5400  DATA   1,1,14,0,18,35,0,26,35,0,19,35,0,25,35,0,20,35,0,24,35,0,21,35,0,23,35,0,22,35,0,23,36,0,23,37,0,23,38,0,23,39,0,23,39
  182. 5410  DATA    2,1, 9,21,12,0,1,0,14,12,0,0,1,18,12,0,-1,0,6,0
  183. 5415  DATA  6
  184. 5420  DATA   3,2000, 1,1,1,6,0,13,3,750 ,1,1,1,0,0,13,3,1000,  2,1,39,29   ,6,0,-1,0,19,6,0,0,-1,9,6,5,255,HEY,3,500,5,150,WHAT HAPPENED TO EVERYBODY???,3,500
  185. 5430  DATA   1,0,0,2,1,0,39,0,1,0,39,39,1,0,1,2,1,0,39,0,1,0,39,39
  186. 5440  DATA    3,1000,1,0,1,3,1,0,39,38,1,0,39,37,1,0,39,36,0,1,0,5,6
  187. 5450  DATA   5 , 150 ,HEY..IM BEING CAGED IN!!,0,0,1,2,6,0,-1,0,10,6,1,0,1,5,1,0,39,1,1,0,39,2,1,0,39,3,1,0,39,4,1,0,39,5
  188. 5460  DATA  3,500,1,0,1,2,1,0,39,35,1,0,39,34,3,500,1,0,1,2,1,0,39,6,1,0,39,7,0,0,1,5,6,0,1,0,5,6
  189. 5470  DATA   5,255,  HELP!!!  MAKE IT STOP!!!,1,0,1,2,1,0,39,8,1,0,39,9,3,200,1,0,1,2,1,0,39,35,1,0,39,34
  190. 5480  DATA 3,500,1,0,1,3,1,0,39,10,1,0,39,11,1,0,39,12,3,400,1,0,1,2,1,0,39,13,1,0,39,14
  191. 5490  DATA   0,1,0,5,6,1,0,1,3,1,0,39,33,1,0,39,32,1,0,39,31,3,400,1,0,1,2,1,0,39,30,1,0,39,29
  192. 5500  DATA   0,1,0,2,6,0,0,1,2,6,0,-1,0,7,6,1,0,1,2,1,0,39,28,1,0,39,27,3,300,1,0,1,2,1,0,39,15,1,0,39,16
  193. 5510  DATA  0,0,-1,3,6,1,0,1,3,1,0,39,26,1,0,39,25,1,0,39,24,3,500,1,0,1,2,1,0,39,17,1,0,39,18,3,500
  194. 5520  DATA  0,0,-1,6,6,1,0,1,3,1,0,39,23,1,0,39,22,1,0,39,21,3,300
  195. 5530  DATA   1,0,1,1,1,0,39,19,1,1,4,1,20,38,1,20,37,1,20,36,1,20,35,3,200,1,1,5,1,20,34,1,20,33,1,20,32,1,20,31,1,20,30,3,100,0,0,-1,5,6
  196. 5540  DATA    1,1,6,1,20,29,1,20,28,1,20,27,1,20,26,1,20,25,1,20,24,3,200,0,0,-1,5,6, 3,100,1,1,4,1,20,1,1,20,2,1,20,3,1,20,4,3,200
  197. 5550  DATA   1,1,2,1,20,5,1,20,6,3,100,1,1,4,1,20,23,1,20,22,1,20,21,1,20,20, 3,100,1,1,4,1,20,19,1,20,7,1,20,18,1,20,8, 3,100,1,1,3,1,20,17,1,20,16,1,20,9,3,500
  198. 5560  DATA  5,150,HEY...,3,1000,5,150,WHAT HAPPENED.....WHAT DO I DO NOW?,3,1000
  199. 5570  DATA  0,-1,0,1,6,3,500,5,150,IM A MOLE!!!!!,0,-1,0,5,6,0,0,1,10,6
  200. 5580  DATA  0,1,0,6,6,0,0,-1,19,6,0,1,0,18,6,0,0,1,19,6,0,-1,0,18,6,0,0,1,18,6,0,-1,0,19,6,0,0,-1,18,6,0,1,0,19,6
  201. 5590  DATA   0,0,-1,7,6,5,255,OH NO....HERE COMES THE FLOODS!!!,1,1,21,6,38,0,6,38,1,6,38,2,6,38,3,6,38,4,6,38,5,6,38,6,6,38,7,6,38,8,6,38,9,6,38,10,6,38,11,6,38,12,6,38,13,6,38,14,6,38,15,6,38,16,6,38,17
  202. 5600  DATA  6,38,18,6,38,19,6,38,20,1,1,18,6,37,20,6,36,20,6,35,20,6,34,20,6,33,20,6,32,20,6,31,20,6,30,20,6,29,20,6,28,20,6,27,20,6,26,20,6,25,20,6,24,20,6,23,20,6,22,20,6,21,20,6,20,20
  203. 5610  DATA  1,1,18,6,20,21,6,20,22,6,20,23,6,20,24,6,20,25,6,20,26,6,20,27,6,20,28,6,20,29,6,20,30,6,20,31,6,20,32,6,20,33,6,20,34,6,20,35,6,20,36,6,20,37,6,20,38
  204. 5620  DATA  1,1,19,6,19,38,6,18,38,6,17,38,6,16,38,6,15,38,6,14,38,6,13,38,6,12,38,6,11,38,6,10,38,6,9,38,6,8,38,6,7,38,6,6,38,6,5,38,6,4,38,6,3,38,6,2,38,6,1,38
  205. 5630  DATA  1,1,18,6,1,37,6,1,36,6,1,35,6,1,34,6,1,33,6,1,32,6,1,31,6,1,30,6,1,29,6,1,28,6,1,27,6,1,26,6,1,25,6,1,24,6,1,23,6,1,22,6,1,21,6,1,20
  206. 5640  DATA   1,1,19,6,1,20,6,19,20,6,2,20,6,18,20,6,3,20,6,17,20,6,4,20,6,16,20,6,5,20,6,15,20,6,6,20,6,14,20,6,7,20,6,13,20,6,8,20,6,12,20,6,9,20,6,11,20,6,10,20
  207. 5650  DATA   1,1,25,6,14,19,6,20,19,6,14,18,6,20,18,6,14,17,6,20,17,6,14,16,6,20,16,6,14,15,6,20,15,6,14,14,6,20,14,6,14,13,6,20,13,6,14,12,6,20,12,6,14,11,6,20, 11,6,14,10,6,20,10,6,15,10,6,19,10,6,16,10,6,18,10,6,17,10
  208. 5660  DATA  1,1,26,6,20,9,6,20,8,6,20,7,6,20,6,6,20,5,6,20,4,6,20,3,6,20,2,6,20,1,6,37,1,6,21,1,6,36,1,6,22,1,6,35,1,6,23,1,6,34,1,6,24,1,6,33,1,6,25,1,6,32,1,6,26,1,6,31,1,6,27,1,6,30,1,6,28,1,6,29,1
  209. 5680  DATA  2,20,5,5,3,5,35,9,35,35,6,35,5,11,10,10,12,10,30,2,30,30,5,30,10,7,15,15,8,15,25,14,25,25,6,25,15,10,20,20,4,20,20,9,20,20,8,20,20,13
  210. 5690  DATA  20,20,5,20,20,9,20,20,1,20,20,7
  211. 5695  DATA  5,255,     THIS IS VERY STRANGE
  212. 5700  DATA  1,0,0,5,3,5,25,10,7,15,20,33,11,23,37,4,12,2,10,31,5,20,35,19,1,0,1,5,9,3,17,4,4,15,23,37,14,34,37,20,1,10,23,11,6,1,5,16
  213. 5705  DATA  6,8
  214. 5710  DATA    8,2,1,0,0,6,0,1,1,20,6,0,0,-1,20,6,2,1,39,0,6,0,-1,1,20,6,0,1,0,20,6,2,1,39,39,6,0,-1,-1,19,6,0,0,1,19,6,2,1,0 ,39,6,0,1,-1,19,6,0,-1,0,19,6
  215. 5720  DATA  2,7,0,0,0 ,0,0,0 ,0,0,0 ,0,0,0 ,0,0,0 ,0,0,0 ,0,0,0,8
  216. 5730  DATA   1,0,0,1,1,6  ,0,1,0,4,6,0,0,1,8,6,0,1,0,8,6,0,0,1,2,6,0,1,0,6,6,0,0,1,10,6,0,1,0,2,6,0,0,-1,6,6
  217. 5740  DATA   5,200, WHAT IS GOING ON HERE?,3,2000,5,200, WHAT THE HECK HAPPENED TO THE OLYMPIC   SWIMMING POOL?,3,3000,5,255, ,3,3
  218. 5747  DATA  8,2
  219. 5750  DATA   1,0,0,13,1,11,19,18,1,21,29,18,1,11,19,17,1,21,29,17,1,11,19,16,1,21,29,16,1,12,19,15,1,21,28,15,1,12,28,14,1,13,27,13,1,13,27,12,1,14,26,11,1,15,25,10
  220. 5760  DATA  1,0,0,1,1,17,23,9
  221. 5770  DATA   1,0,0,7,13,18,22,5,13,17,23,6,13,14,26,7,13,14,18,8,13,22,26,8,13,12,16,9,13,24,28,9
  222. 5775  DATA  1,0,0,1,13,19,21,8
  223. 5780  DATA   1,0,1,8,13,18,15,9,13,18,15,31,13,18,13,10,13,18,13,30,13,15,11,11,13,15,11,29,13,13,9,12,13,13,9,28
  224. 5790  DATA   1,1,6,13,13,11,13,13,10,13,14,10,13,27,11,13,27,10,13,26,10
  225. 5800  DATA  1,0,0,8,8,0,16,18,8,0,15,17,8,0,11,16,8,0,11,15,8,0,8,14,8,0,8,13,8,0,5,12,8,0,2,11
  226. 5810  DATA  1,0,0,8,15,32,33,3,15,31,35,4,15,30,36,5,15,30,34,6,15,33,33,7,15,37,38,8,15,36,39,9,15,36,38,10 
  227. 5815  DATA    1,0,0,4,15,8,8,1,15,5,8,2,15,4,9,3,15,5,6,4
  228. 5820  DATA  5,120,WHAT A PRETTY SUNSET!!!    
  229. 5830  DATA  3,1000,5,255, ,8,3
  230. 5840  DATA  3,1000,1,0,0,2,15,25,34,24,15,25,34,37,1,0,1,2,15,24,37,25,15,24,37,34
  231. 5845  DATA  2,1,32,27,0,0,-1,0,5,0
  232. 5850  DATA   3,500,1,0,0,1,6,27,32,27,3,500,2,1,27,27,6,0,0,1,3,6,0,-1,0,1,6,0,0,1,6,6,0,1,0,7,6,0,0,-1,2,6,0,-1,0,6,6
  233. 5855  DATA  0,-1,0,1,6,0,0,-1,9,6,0,1,0,7,6,0,0,1,9,6,0,-1,0,6,6
  234. 5860  DATA    5,160, I'M TRAPPED!!!,3,500,5,160,WHAT DO I DO NOW?!?,3,800
  235. 5870  DATA  1,0,0,6,15,6,15,3,15,6,15,16,15,25,34,3,15,25,34,16,15,6,15,24,15,6,15,37
  236. 5880  DATA  1,0,1,6,15,16,3,6,15,16,3,15,15,16,3,25,15,16,3,34,15,37,24,6,15,37,24,15
  237. 5890  DATA  5,255, ,3,500,0,-1,0,1,6,2,1,14,34,6,0,-1,0,4,6,0,0,-1,9,6,2,1,10,15,6,0,0,-1,6,6,0,1,0,4,6,2,1,26,9,6,0,1,0,4,6,0,0,1,6,6,2,1,30,25,6,0,0,1,7,6
  238. 5900  DATA  0,1,0,3,6,2,1,7,11,6,0,1,0,7,6,2,1,26,11,6,0,1,0,7,6,2,1,7,32,6,0,1,0,7,6,2,1,26,32,6,0,1,0,6,6
  239. 5910  DATA  5,150,WHAT A STRANGE PHENOMENA!,3, 1500,5,150, WHAT DOES IT ALL MEAN????,3,1500
  240. 5920  DATA    5,255, ,1,0,0,2,0,25,34,24,0,25,34,37,1,0,1,2,0,24,37,25,0,24,37,34
  241. 5930  DATA     0,0,1,1,6,0,-1,0,16,6,3,550,0,0,-1,16,6
  242. 5940  DATA  0,-1,0,11,6,0,0,-1,15,6,0,1,0,11,6,0,1,1,8,6,0,0,1,7,6,0,1,1,5,6,0,-1,0,8,6
  243. 5950  DATA  0,0,-1,4,6,0,-1,0,13,6,1,0,1,10,1,0,39,0,1,0,2,7,1,0,2,11,1,0,2,13,1,0,39,17,1,0,39,24,1,0,2,26,1,0,2,31,1,0,2,33,1,0,39,37
  244. 5960  DATA  1,0,0,10,9,0,39,1,9,0,5,7,9,0,5,9,9,0,5,11,9,0,39,17,9,0,39,20,9,0,5,29,9,0,5,32,9,0,5,34,9,0,39,39
  245. 5970  DATA  1,0,0,10,2,24,37,18,2,24,37,22,2,24,37,23,2,24,37,25,2,24,37,27,2,24,37,28,2,24,37,31,2,24,37,33,2,24,37,37,2,24,37,39
  246. 5980  DATA   1,1, 4,2,9,7,2,12,7,1,8,11,1,13,11,1,0,0,1,1,9,12,12,1,1,4,2,28,7,2,31,7,1,27,11,1,32,11,1,0,0,1,1,28,31,12,1,1,4,2,9,28,2,12,28,1,8,32,1,13,32,1,0,0,1,1,9,12,33
  247. 5990  DATA 1,1, 4,0,9,7,0,12,7,0,8,11,0,13,11,1,0,0,1,0,9,12,12,1,1,4,0,28,7,0,31,7,0,27,11,0,32,11,1,0,0,1,0,28,31,12,1,1,4,0,9,28,0,12,28,0,8,32,0,13,32,1,0,0,1,0,9,12,33
  248. 6000  DATA   1,1, 4,2,9,7,2,12,7,1,8,11,1,13,11,1,0,0,1,1,9,12,12,1,1,4,2,28,7,2,31,7,1,27,11,1,32,11,1,0,0,1,1,28,31,12,1,1,4,2,9,28,2,12,28,1,8,32,1,13,32,1,0,0,1,1,9,12,33
  249. 6010  DATA 1,1, 4,0,9,7,0,12,7,0,8,11,0,13,11,1,0,0,1,0,9,12,12,1,1,4,0,28,7,0,31,7,0,27,11,0,32,11,1,0,0,1,0,28,31,12,1,1,4,0,9,28,0,12,28,0,8,32,0,13,32,1,0,0,1,0,9,12,33
  250. 6020  DATA    8,5,6
  251. 6030  DATA  8,6,2,1,0,0,15,7,0,1, 5,15,0,7,0,1,10,15,15,7,1,0,2,15,15,7,0,1,2,15,15,7,-1,0,2,15,15,7,0,1,22,15,15,7,1,0,10,15,15,7,0,-1,2,15,15
  252. 6040  DATA   7,-1,0,8,15,15,7,0,-1,18,15,15,7,1,0,12,15,15,7,0,-1,8,15,15,7,-1,0,2,15,15,7,0,1,6,15,15,7,-1,0,8,15,15,7,0,-1,4,15,15,7,-1,0,2,15,15,7,0,-1,12,15,15
  253. 6045  DATA  7,1,0,36,15,15,7,0,1,38,15,15,7,-1,0,10,15,15,7,0,-1,4,15,15,7,-1,0,10,15,15,7,0,1,2,15,15,7,1,0,8,15,15,7,0,1,2,15,15,7,-1,0,10,15,15,7,0,-1,6,15,15
  254. 6050  DATA  7,1,0,14,15,15,7,0,1,4,15,15,7,1,0,2,15,15,7,0,-1,10,15,15,7,1,0,2,15,15,7,0,1,10,15,15,7,1,0,2,15,15,7,0,-1,34,15,15,7,-1,0,2,15,15,7,0,1,22,15,15
  255. 6060  DATA  7,-1,0,4,15,15,7,0,1,6,15,15,7,-1,0,2,15,15,7,0,-1,14,15,15,7,1,0,2,15,15,7,0,1,6,15,15,7,1,0,2,15,15,7,0,-1,8,15,15,7,-1,0,10,15,15,7,0,1,2,15,15
  256. 6070  DATA  7,1,0,4,15,15,7,0,1,14,15,15,7,-1,0,12,15,15,7,0,1,8,15,15,7,-1,0,2,15,15,7,0,-1,4,15,15,7,-1,0,4,15,15,7,0,-1,4,15,15,7,-1,0,2,15,15,7,0,1,4,15,15
  257. 6080  DATA 2,1,4,3,1,1,1,1,15,7,31,7,2,0,5,1,15,7,2,0,9,1,1,7,0,2,1,1,1,7,-2,0,14,1,1,7,0,2,1,1,1,7,2,0,14,1,1,7,0,2,1,1,1,7,-2,0,14,1,1
  258. 6090  DATA  7,0,2,1,1,1,7,2,0,3,1,1,7,6,0,1,1,1,7,2,0,8,1,1,7,0,2,1,1,1
  259. 6100  DATA  7,-2,0,8,1,1,7,-6,0,1,1,1,7,-2,0,2,1,1,7,0,2,1,1,1,7,2,0,2,1,1,7,6,0,1,1,1,7,2,0,2,1,1,7,0,2,1,1,1
  260. 6110  DATA   7,-2,0,2,1,1,7,0,2,1,1,1,7,2,0,4,1,1,7,0,2,1,1,1,7,-2,0,10,1,1,  7,0,2,1,1,1,7,2,0,10,1,1
  261. 6120  DATA  7,0,2,1,1,1,7,-2,0,10,1,1,7,0,2,1,1,1,7,2,0,10,1,1,7,0,2,1,1,1,7,-2,0,10,1,1,1,1,7,1,4,31,1,4,33,1,4,35,1,10,31,1,12,31,1,10,33,1,12,33
  262. 6130  DATA     3,1500,7,-1,0,1,6,1,7,0,-1,5,6,1,0,1,0,14,6
  263. 6140  DATA    0,0,1,2,6,0,1,0,2,6,0,0,-1,20,6,0, 1,0,6,6,0,0,1,6,6,0,-1,0,8,6,0,0,1,10,6
  264. 6150  DATA   5,120,THIS IS DEFINATELY TOO STRANGE FOR ME.. GOOD BYE NOW.....,3,1000
  265. 6160  DATA  8,9
  266. 6170  DATA 5,255, ,1,0,0,10,1,5,11,6,1,13,17,11,1,19,23,6,1,19,22,11,1,19,23,15,1,15,19,20,1,15,18,25,1,15,19,29,1,27,29,20,1,27,29,29,3,1000 
  267. 6180  DATA   1,1, 8,1,30,21,1,30,28,1,24,27, 1,24,26,1,23,25,1,23,24,1,22,23,1,22,22,3,1000
  268. 6190  DATA  1,0,1,9,1,6,15,8,1,6,15,13,1,6,15,17,1,6,15,19,1,20,29,15,1,20,29,21,1,20,29,25,1,20,29,27,1,22,27,31
  269. 6200  DATA  3,3000,8,10
  270. 10000  REM  STRAIGHT PROGRAMING
  271. 10005  REM  11170
  272. 10010  READ SNAP
  273. 10020  IF SNAP = 8  THEN 10100
  274. 10030  IF SNAP = 1  THEN 10210
  275. 10040  IF SNAP = 2  THEN 10500
  276. 10050  IF SNAP = 3  THEN 10590
  277. 10060  IF SNAP = 4  THEN 10820
  278. 10070  IF SNAP = 5  THEN 10940
  279. 10072  IF SNAP = 6  THEN 11120
  280. 10074  IF SNAP = 9  THEN 11170
  281. 10076  IF SNAP = 10  THEN 11260
  282. 10100  REM  VARIABLES:
  283. 10110  REM  J1,
  284. 10115  COLOR= 8
  285. 10120  FOR X = 1 TO 38  STEP 2
  286. 10130  FOR Y = 0 TO X
  287. 10140  PLOT X -Y,Y: PLOT X -Y,39 -Y: PLOT 39 -X +Y,39 -Y: PLOT 39 -X +Y,Y
  288. 10150  NEXT Y
  289. 10160  NEXT X
  290. 10170  FOR X = 0 TO 20
  291. 10180  COLOR=  INT( RND(1) *15 +1)
  292. 10190  PLOT X,20: PLOT 39 -X,20: PLOT 20,X: PLOT 20,39 -X
  293. 10200  NEXT X
  294. 10201  NEXT N
  295. 10210  FOR X = 1 TO 39  STEP 2
  296. 10220  COLOR= 8
  297. 10230  VLIN 0,39 AT X
  298. 10240  COLOR= 2
  299. 10250  HLIN 0,39 AT X
  300. 10260  NEXT X
  301. 10270  FOR X = 1 TO 39  STEP 2
  302. 10280  COLOR= 13: VLIN 0,39 AT 40 -X
  303. 10290  COLOR= 9: HLIN 0,39 AT X
  304. 10300  NEXT X
  305. 10310  FOR X = 39 TO 1  STEP  -2
  306. 10320  COLOR= 11: VLIN 0,39 AT X
  307. 10330  COLOR= 4: HLIN 0,39 AT X
  308. 10340  NEXT X
  309. 10350  FOR X = 1 TO 39  STEP 2
  310. 10360  COLOR= 12: VLIN 0,39 AT X
  311. 10370  COLOR= 1: HLIN 0,39 AT 40 -X
  312. 10380  NEXT X
  313. 10390  COLOR= 0
  314. 10400  FOR X = 0 TO 39
  315. 10410  VLIN 0,39 AT X
  316. 10420  NEXT X
  317. 10430  FOR X = 1 TO 39  STEP 2
  318. 10440  COLOR= 15: VLIN 0,39 AT X
  319. 10450  NEXT X
  320. 10460  FOR X = 1 TO 39  STEP 2
  321. 10470  COLOR= 0: HLIN 0,39 AT X
  322. 10480  NEXT X
  323. 10490  NEXT N
  324. 10500  COLOR= 2
  325. 10505  FOR X = 0 TO 18
  326. 10510  HLIN 0,39 AT X
  327. 10520  NEXT X
  328. 10525  COLOR= 12
  329. 10530  FOR X = 19 TO 39
  330. 10540  HLIN 0,39 AT X
  331. 10550  NEXT X
  332. 10560  COLOR= 6
  333. 10570  VLIN 15,20 AT 20
  334. 10580  NEXT N
  335. 10590  REM  START
  336. 10595  COLOR= 15
  337. 10600  FOR X = 0 TO 20
  338. 10610  PLOT 20 -X,20: PLOT 19 +X,20: PLOT 20,20 -X: PLOT 20,19 +X: PLOT 20 -X,20 -X: PLOT 20 -X,19 +X: PLOT 19 +X,20 -X: PLOT 19 +X,19 +X
  339. 10620  NEXT X
  340. 10630  FOR X = 0 TO 20
  341. 10640  PLOT 20 -X,19 -X/2: PLOT 19 -X/2,20 -X: PLOT 21 +X/2,20 -X: PLOT 19 +X,19 -X/2: PLOT 19 +X,21 +X/2: PLOT 21 +X/2,19 +X: PLOT 19 -X/2,19 +X: PLOT 20 -X,21 +X/2
  342. 10650  NEXT X
  343. 10660  FOR X = 0 TO 20
  344. 10670  PLOT 20 -X,19 -X/4: PLOT 19 -X/4,20 -X: PLOT 21 +X/4,20 -X: PLOT 19 +X,19 -X/4: PLOT 19 +X,21 +X/4: PLOT 21 +X/4,19 +X: PLOT 19 -X/4,19 +X: PLOT 20 -X,21 +X/4
  345. 10680  NEXT X
  346. 10690  FOR X = 0 TO 20
  347. 10700  PLOT 20 -X,19 -X/9: PLOT 19 -X/9,20 -X: PLOT 21 +X/9,20 -X: PLOT 19 +X,19 -X/9: PLOT 19 +X,21 +X/9: PLOT 21 +X/9,19 +X: PLOT 19 -X/9,19 +X: PLOT 20 -X,21 +X/9
  348. 10710  NEXT X
  349. 10720  HLIN 0,39 AT 19: VLIN 0,39 AT 19
  350. 10730  FOR X = 0 TO 18
  351. 10735  FOR X1 = 1 TO 25: NEXT X1
  352. 10740  VLIN 20 -X,21 +X AT 19 -X: HLIN 20 -X,21 +X AT 21 +X: VLIN 20 +X,18 -X AT 21 +X: HLIN 20 +X,18 -X AT 18 -X
  353. 10750  NEXT X
  354. 10760  VLIN 0,39 AT 0
  355. 10765  COLOR= 0
  356. 10767  PLOT 20,20: PLOT 20,19: PLOT 19,19
  357. 10770  FOR X = 0 TO 18
  358. 10780  VLIN 20 -X,21 +X AT 19 -X: HLIN 20 -X,21 +X AT 21 +X: VLIN 20 +X,18 -X AT 21 +X: HLIN 20 +X,18 -X AT 18 -X
  359. 10790  NEXT X
  360. 10800  VLIN 0,39 AT 0
  361. 10810  NEXT N
  362. 10820  TEXT : HOME 
  363. 10825  SPEED= 130
  364. 10830  VTAB 10
  365. 10840  PRINT "LARRY HEWITT PRESENTS:
  366. 10850  PRINT 
  367. 10860  PRINT "SWIMMING AND FUN:
  368. 10870  PRINT "A CHEMICAL ODYSSEY 
  369. 10875  FOR X = 1 TO 3000: NEXT X
  370. 10880  HOME 
  371. 10890  VTAB 10
  372. 10900  PRINT "PRODUCED, WRITTEN, CONCEIVED, PROGRAMMEDDIRECTED, AND ANY THING ELSE BY:": PRINT : PRINT "LARRY HEWITT"
  373. 10905  PRINT : PRINT "COPYRIGHT 1980"
  374. 10910  FOR X = 1 TO 3000: NEXT X
  375. 10920  SPEED= 255
  376. 10925  GR 
  377. 10930  NEXT N
  378. 10940  REM  PSYCHODELIA
  379. 10950  FOR X = 0 TO 14  STEP 2
  380. 10955  COLOR= X
  381. 10960  FOR Y = 0 TO 38  STEP 2
  382. 10980  HLIN 0,39 AT Y
  383. 10990  NEXT Y,X
  384. 11000  FOR X = 1 TO 15  STEP 2
  385. 11010  COLOR= X
  386. 11020  FOR Y = 0 TO 38  STEP 2
  387. 11030  VLIN 0,39 AT Y
  388. 11040  NEXT Y,X
  389. 11045  FOR Y = 1 TO 5
  390. 11050  FOR X = 0 TO 36  STEP 4
  391. 11060  COLOR= 1: HLIN 0,39 AT X: COLOR= 2: VLIN 0,39 AT X: COLOR= 1: HLIN 0,39 AT X +2: COLOR= 2: VLIN 0,39 AT X +2
  392. 11070  NEXT X,Y
  393. 11075  COLOR= 0
  394. 11080  FOR X = 15 TO 25
  395. 11090  HLIN 10,30 AT X
  396. 11100  NEXT X
  397. 11110  NEXT N
  398. 11120  REM 
  399. 11125  COLOR= 0
  400. 11130  FOR X = 0 TO 39
  401. 11140  VLIN 0,39 AT X
  402. 11150  NEXT X
  403. 11160  NEXT N
  404. 11170  COLOR= 0
  405. 11172 R = 0:S = 0
  406. 11174 R = R +1
  407. 11175  IF R = 5  THEN 11250
  408. 11176  IF R = 3  OR R = 4  THEN S =  -1
  409. 11180  FOR X = 1 TO 39  STEP 2
  410. 11190  IF R = 1  OR R = 3  THEN 11220
  411. 11200  VLIN 0,39 AT X +S
  412. 11210  GOTO 11230
  413. 11220  HLIN 0,39 AT X +S
  414. 11230  NEXT X
  415. 11240  GOTO 11174
  416. 11250  NEXT N
  417. 11260  HOME : TEXT : HOME : PRINT "PROGRAM BY LARRY HEWITT     1980": END 
  418. 30000  REM  START DOCUMENTATION, START
  419. 30010  REM  WITH MAP
  420. 30020  REM  MAP
  421. 30030  REM  0=MOTION-LOW DATA
  422. 30040  REM  1=STATIC
  423. 30050  REM  2=MOTION-HIGH DATA
  424. 30060  REM  3=DELAY
  425. 30070  REM  4=REPEATER
  426. 30080  REM  5=PRINT TEXT
  427. 30090  REM  6=RESET X0
  428. 30100  REM  7=LOMEM-MOTION       WITH BACKGROUND
  429. 30110  REM  8=REGULAR PROGRAMMING
  430. 30120  REM  0> X1=DIR & VEL (X)
  431. 30121  REM     Y1=DIR & VEL (Y)
  432. 30122  REM     D=DISTANCE
  433. 30123  REM     C=COLOR
  434. 30130  REM  1>B 0=DOT PLOT          1=LINE PLOT
  435. 30140  REM    B=0> D 0=HORZ 1=VIRT
  436. 30150  REM      D=0> K=NO. LINES
  437. 30160  REM           I C=COLOR
  438. 30170  REM    K      I X1=START X
  439. 30180  REM    TIMES  I X2=END X
  440. 30190  REM           I Y=Y COORD
  441. 30200  REM      D=1> K=NO. LINES
  442. 30210  REM           I C=COLOR
  443. 30220  REM    K      I X1=START Y
  444. 30230  REM    TIMES  I X2=END Y
  445. 30240  REM           I Y=X COORD
  446. 30250  REM    B=1> K=NO OF PLOTS
  447. 30260  REM         I C=COLOR
  448. 30270  REM K TIMES I X PLOT
  449. 30280  REM         I Y PLOT
  450. 30290  REM  2> K=NO. OF POINTS
  451. 30300  REM     I X1= X COORD.
  452. 30310  REM   K I Y1= Y COORD.
  453. 30320  REM     I C= COLOR
  454. 30330  REM  3> X1=DELAY
  455. 30340  REM  4> K1=NO. OF REPEATS
  456. 30350  REM     K2=N0. OF MOVES
  457. 30360  REM     I X1=X COORD
  458. 30370  REM  K2 I Y1=Y COORD
  459. 30380  REM     I D= DISTANCE
  460. 30390  REM     I C= COLOR
  461. 30400  REM  5> SP=SPEED
  462. 30410  REM     P=TEXT (PRINTED)
  463. 30420  REM  6>  (NO VARIABLES!)
  464. 30430  REM  7> X1=X DIR & VEL
  465. 30440  REM     Y1=Y DIR & VEL
  466. 30450  REM     D=DISTANCE
  467. 30460  REM     C=COLOR (WORM)
  468. 30470  REM     BA=BACKG COLOR
  469. 30480  REM   8> ONE VARIABLE ON WHERE TO START THE STRAIGHT PROGRAMMING!!!(SEE 10000-10100)
  470. 35000  END